unit Records;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbbase, DB, StdCtrls, Buttons, Mask, RzEdit, RzButton, Grids,
  DBGrids, RzDBGrid, ExtCtrls;

type
  TRecordsfrm = class(TdbbaseFrm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure IniParam;override;
    procedure QFindRcd;override;
    procedure PrintRpt;override;
    procedure FindRcd; override;
    procedure AddRcd;  override;
    procedure EditRcd; override;
    procedure DelRcd;  override;
    //procedure CutCnnt; override;
    procedure FrmExit; override;
  end;

  procedure RecordsManage(Parent:TWincontrol);

implementation

{$R *.dfm}

uses datmd;

procedure RecordsManage(Parent:TWincontrol);
var
  MyRecordsfrm:TRecordsfrm;
begin
  MyRecordsfrm:=TRecordsfrm.Create(Parent);
  MyRecordsfrm.Parent:=Parent;
  MyRecordsfrm.Show;
end;

Procedure TRecordsfrm.IniParam;
begin
  DataSource.DataSet:=datmdfrm.Rcd;
  DataSource.DataSet.Active:=True;
end;

procedure TRecordsfrm.QFindRcd;
begin


end;

procedure TRecordsfrm.PrintRpt;
begin


end;

procedure TRecordsfrm.FindRcd; 
begin


end;

procedure TRecordsfrm.AddRcd;  
begin


end;

procedure TRecordsfrm.EditRcd; 
begin


end;

procedure TRecordsfrm.DelRcd;  
begin


end;

procedure TRecordsfrm.FrmExit; 
begin
  DataSource.DataSet.Close;
  DataSource.DataSet.Active:=False;
  Close;
end;


end.
